home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / recentscript / config / amftp miami.intro < prev    next >
Text File  |  1999-05-17  |  2KB  |  100 lines
  1. /* ARexx - Download script for AmFTP - Script generated by RecentScript
  2.    Miami start/online/offline support by Detlef Wojtaszkiewicz
  3.    dwojtaszkiewicz@rios.de
  4.    $VER: 1.0 (18.04.99)    */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. IF ~SHOW('l', "rexxsupport.library") THEN DO
  9.   IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  10.     EXIT
  11.   END
  12. END
  13.  
  14. IF (~show('l','rexxreqtools.library')) then
  15.     CALL addlib('rexxreqtools.library',-2,-30,0)
  16.  
  17. CALL rtezrequest('What to do after download?',
  18.                     ,' Go _offline |Stay _tuned| _Quit ',
  19.                     ,,'rt_reqpos = reqpos_centerscr')
  20.  
  21.     IF RTRESULT == 1 THEN DO
  22.     CALL GET
  23.         CALL OFF
  24.         exit
  25.     END
  26.  
  27.   IF RTRESULT == 2 THEN DO
  28.     CALL GET
  29.         EXIT
  30.     END
  31.  
  32.   IF RTRESULT == 0 THEN DO
  33.     EXIT
  34.     END
  35.  
  36. GET:
  37. IF ~SHOW('P',MIAMI.1) THEN DO
  38.     ADDRESS COMMAND
  39.         'run <>nil: Miami:Miami'
  40.         'sys:rexxc/Waitforport MIAMI.1'
  41. END
  42.  
  43. ADDRESS MIAMI.1
  44.     ISONLINE
  45.         IF ~RC THEN DO
  46.             ONLINE
  47.         END                /* Ende Miami-Starter */
  48.  
  49. oldport = ""
  50. newport = ""
  51.  
  52. DO i=1 TO 5
  53.   port = "AMFTP."i
  54.   IF SHOW(PORTS,port) = 1 THEN DO
  55.     ADDRESS value port
  56.     ISCONNECTED
  57.     connectstate = RESULT
  58.     IF connectstate = 1 THEN DO
  59.     END
  60.     ELSE DO
  61.       IF oldport = "" THEN oldport = port
  62.     END
  63.   END
  64.   ELSE DO
  65.     IF newport = "" THEN newport = port
  66.   END
  67. END
  68.  
  69. IF oldport = "" THEN DO
  70.    ADDRESS COMMAND 'run <>NIL: "%3"'
  71.    DO 3 WHILE ~SHOW(PORTS,newport)
  72.      ADDRESS COMMAND 'WaitForPort 'newport
  73.    END
  74.    IF RC = 5 THEN DO
  75.      EXIT
  76.    END
  77.    portname = newport
  78. END
  79. ELSE DO
  80.   portname = oldport
  81. END
  82.  
  83. resultport = "RSLT."portname
  84.  
  85. ADDRESS value portname
  86.  
  87. CONNECTHOST "%1"
  88.  
  89. CALL OPENPORT(resultport)
  90. WAITACTION resultport
  91. CALL WAITPKT resultport
  92.  
  93. ISCONNECTED
  94. connectstate = RESULT
  95. IF connectstate = 0 THEN DO
  96.   IF oldport = "" THEN QUIT
  97.   ELSE CLOSE
  98.   CALL CLOSEPORT resultport
  99.   EXIT
  100. END